home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Toolbox / Visual Basic Toolbox (P.I.E.)(1996).ISO / clocks / ttcode / thetime.bas < prev    next >
BASIC Source File  |  1995-07-21  |  12KB  |  258 lines
  1. Option Explicit
  2.  
  3. Type POINTAPI
  4.     x As Integer
  5.     y As Integer
  6. End Type
  7.  
  8. Type RECT
  9.     left As Integer
  10.     top As Integer
  11.     right As Integer
  12.     bottom As Integer
  13. End Type
  14.  
  15. Type WINDOWPLACEMENT
  16.     length As Integer
  17.     flags As Integer
  18.     showCmd As Integer
  19.     ptMinPosition As POINTAPI
  20.     ptMaxPosition As POINTAPI
  21.     rcNormalPosition As RECT
  22. End Type
  23.  
  24. ' just a few globals
  25. Global Tpx As Integer, Tpy As Integer
  26. Global CD As CommonDialog
  27.  
  28. Declare Function mbLoWord Lib "ModBlast.vbx" (ByVal dword As Long) As Integer
  29. Declare Function mbHiWord Lib "ModBlast.vbx" (ByVal dword As Long) As Integer
  30. Declare Function mbSetControlFlags Lib "ModBlast.vbx" (ByVal hWnd As Integer, ByVal mask As Long, ByVal value As Long) As Long
  31.  
  32. Declare Function IsWindowVisible Lib "User" (ByVal hWnd As Integer) As Integer
  33. Declare Function IsIconic Lib "User" (ByVal hWnd As Integer) As Integer
  34. Declare Function IsZoomed Lib "User" (ByVal hWnd As Integer) As Integer
  35. Declare Function GetDeskTopWindow Lib "User" () As Integer
  36. Declare Function GetActiveWindow Lib "User" () As Integer
  37. Declare Sub SetWindowPos Lib "User" (ByVal hWnd As Integer, ByVal hWndInsertAfter As Integer, ByVal x As Integer, ByVal y As Integer, ByVal cx As Integer, ByVal cy As Integer, ByVal wFlags As Integer)
  38. Declare Sub ShowWindow Lib "User" (ByVal hWnd As Integer, ByVal nCmdShow As Integer)
  39. Declare Function GetWindowLong Lib "User" (ByVal hWnd As Integer, ByVal nIndex As Integer) As Long
  40. Declare Function SetWindowLong Lib "User" (ByVal hWnd As Integer, ByVal nIndex As Integer, ByVal dwNewLong As Long) As Long
  41. Declare Function GetWindowWord Lib "User" (ByVal hWnd As Integer, ByVal nIndex As Integer) As Integer
  42. Declare Function GetClassLong Lib "User" (ByVal hWnd As Integer, ByVal nIndex As Integer) As Long
  43. Declare Function GetDC Lib "User" (ByVal hWnd As Integer) As Integer
  44. Declare Sub ReleaseDC Lib "User" (ByVal hWnd As Integer, ByVal hDC As Integer)
  45. Declare Sub GetWindowPlacement Lib "User" (ByVal hWnd As Integer, lpwndpl As WINDOWPLACEMENT)
  46. Declare Sub SetWindowPlacement Lib "User" (ByVal hWnd As Integer, lpwndpl As WINDOWPLACEMENT)
  47. Declare Sub GetWindowRect Lib "User" (ByVal hWnd As Integer, lpRect As RECT)
  48. Declare Sub GetClientRect Lib "User" (ByVal hWnd As Integer, lpRect As RECT)
  49. Declare Sub CopyRect Lib "User" (lpDestRect As RECT, lpSourceRect As RECT)
  50. Declare Sub InflateRect Lib "User" (lpRect As RECT, ByVal x As Integer, ByVal y As Integer)
  51. Declare Sub FillRect Lib "User" (ByVal hDC As Integer, lpRect As RECT, ByVal hBrush As Integer)
  52. Declare Sub DrawIcon Lib "User" (ByVal hDC As Integer, ByVal x As Integer, ByVal y As Integer, ByVal hIcon As Integer)
  53. Declare Function Drawtext Lib "User" (ByVal hDC As Integer, ByVal lpStr As String, ByVal nCount As Integer, lpRect As RECT, ByVal wFormat As Integer) As Integer
  54. Declare Sub InvalidateRectbynum Lib "User" Alias "InvalidateRect" (ByVal hWnd As Integer, ByVal lpRect As Long, ByVal bErase As Integer)
  55. Declare Function GetAsyncKeyState Lib "User" (ByVal nVirtKey As Integer) As Integer
  56. Declare Function SetActiveWindow Lib "User" (ByVal hWnd As Integer) As Integer
  57.  
  58. Declare Sub PostMessage Lib "User" (ByVal hWnd As Integer, ByVal wMsg As Integer, ByVal wParam As Integer, lParam As Any)
  59. Declare Function SendMessage Lib "User" (ByVal hWnd As Integer, ByVal wMsg As Integer, ByVal wParam As Integer, lParam As Any) As Long
  60. Declare Function LoadMenu Lib "User" (ByVal hinstance As Integer, lpString As Long) As Integer
  61. Declare Function GetSystemMenu Lib "User" (ByVal hWnd As Integer, ByVal bRevert As Integer) As Integer
  62. Declare Sub AppendMenu Lib "User" (ByVal hMenu As Integer, ByVal wFlags As Integer, ByVal wIDNewItem As Integer, ByVal lpNewItem As Any)
  63. Declare Function CreateMenu Lib "User" () As Integer
  64. Declare Sub DestroyMenu Lib "User" (ByVal hMenu As Integer)
  65. Declare Function GetMenu Lib "User" (ByVal hWnd As Integer) As Integer
  66. Declare Function GetSubMenu Lib "User" (ByVal hMenu As Integer, ByVal nPos As Integer) As Integer
  67. Declare Sub CheckMenuItem Lib "User" (ByVal hMenu As Integer, ByVal wIDCheckItem As Integer, ByVal wCheck As Integer)
  68. Declare Function TrackPopupMenu Lib "User" (ByVal hMenu As Integer, ByVal wFlags As Integer, ByVal x As Integer, ByVal y As Integer, ByVal nReserved As Integer, ByVal hWnd As Integer, lpReserved As Any) As Integer
  69. Declare Sub ClientToScreenBylong Lib "User" Alias "ClientToScreen" (ByVal hWnd As Integer, lpPoint As Long)
  70. Declare Sub ClientToScreen Lib "User" (ByVal hWnd As Integer, lpPoint As POINTAPI)
  71. Declare Function SelectPalette Lib "User" (ByVal hDC As Integer, ByVal hPalette As Integer, ByVal bForceBackground As Integer) As Integer
  72. Declare Function RealizePalette Lib "User" (ByVal hDC As Integer) As Integer
  73.  
  74. Declare Function CreateDC Lib "GDI" (ByVal lpDriverName As String, ByVal lpDeviceName As String, ByVal lpOutput As String, ByVal lpInitData As Long) As Integer
  75. Declare Sub DeleteDC Lib "GDI" (ByVal hDC As Integer)
  76. Declare Function CreateRectRgnIndirect Lib "GDI" (lpRect As RECT) As Integer
  77. Declare Sub CombineRgn Lib "GDI" (ByVal hDestRgn As Integer, ByVal hSrcRgn1 As Integer, ByVal hSrcRgn2 As Integer, ByVal nCombineMode As Integer)
  78. Declare Sub FillRgn Lib "GDI" (ByVal hDC As Integer, ByVal hRgn As Integer, ByVal hBrush As Integer)
  79. Declare Sub BitBlt Lib "GDI" (ByVal hDestDC As Integer, ByVal x As Integer, ByVal y As Integer, ByVal nWidth As Integer, ByVal nHeight As Integer, ByVal hSrcDC As Integer, ByVal XSrc As Integer, ByVal YSrc As Integer, ByVal dwRop As Long)
  80. Declare Sub SetBkMode Lib "GDI" (ByVal hDC As Integer, ByVal nBkMode As Integer)
  81. Declare Sub SetTextColor Lib "GDI" (ByVal hDC As Integer, ByVal crColor As Long)
  82. Declare Function GetStockObject Lib "GDI" (ByVal nIndex As Integer) As Integer
  83. Declare Function CreateSolidBrush Lib "GDI" (ByVal crColor As Long) As Integer
  84. Declare Sub DeleteObject Lib "GDI" (ByVal hObject As Integer)
  85. Declare Function GetTextExtent Lib "GDI" (ByVal hDC As Integer, ByVal lpString As String, ByVal nCount As Integer) As Long
  86. Declare Sub UpdateColors Lib "GDI" (ByVal hDC As Integer)
  87. Declare Sub UnrealizeObject Lib "GDI" (ByVal hObject As Integer)
  88.  
  89. Declare Function GetModuleHandle Lib "Kernel" (ByVal lpModuleName As String) As Integer
  90. Declare Function GetModuleUsage Lib "Kernel" (ByVal hModule As Integer) As Integer
  91. Declare Sub FreeLibrary Lib "Kernel" (ByVal hLibModule As Integer)
  92. Declare Function GetPrivateProfileString Lib "Kernel" (ByVal lpSectionName As String, ByVal lpKeyName As String, ByVal lpDefault As String, ByVal lpReturnedString As String, ByVal nSize As Integer, ByVal lpFileName As String) As Integer
  93. Declare Function GetPrivateProfileInt Lib "Kernel" (ByVal lpSectionName As String, ByVal lpKeyName As String, ByVal Default As Integer, ByVal lpFileName As String) As Integer
  94. Declare Function WritePrivateProfileString Lib "Kernel" (ByVal lpSectionName As String, ByVal lpKeyName As String, ByVal lpString As String, ByVal lplFileName As String) As Integer
  95.  
  96. Declare Sub DragAcceptFiles Lib "Shell" (ByVal hWnd As Integer, ByVal fAccept As Integer)
  97. Declare Function DragQueryFile Lib "Shell" (ByVal hDrop As Integer, ByVal iFile As Integer, ByVal lpszFile As String, ByVal cb As Integer) As Integer
  98. Declare Sub DragFinish Lib "Shell" (ByVal hDrop As Integer)
  99.  
  100. Global Const SW_HIDE = 0
  101. Global Const SW_SHOWNORMAL = 1
  102. Global Const SW_SHOWMAXIMIZED = 3
  103. Global Const SW_SHOWNOACTIVATE = 4
  104. Global Const SW_SHOW = 5
  105. Global Const SW_SHOWNA = 8
  106.  
  107. Global Const HWND_TOPMOST = -1
  108. Global Const HWND_NOTOPMOST = -2
  109.  
  110. Global Const SWP_NOMOVE = &H2
  111. Global Const SWP_NOSIZE = &H1
  112. Global Const SWP_NOZORDER = &H4
  113. Global Const SWP_NOACTIVATE = &H10
  114. Global Const SWP_SHOWWINDOW = &H40
  115.  
  116. Global Const GCL_MENUNAME = (-8)
  117. Global Const GWL_STYLE = (-16)
  118. Global Const GWW_HINSTANCE = (-6)
  119.  
  120. Global Const WS_VISIBLE = &H10000000
  121. Global Const WS_OVERLAPPED = &H0&
  122. Global Const WS_CAPTION = &HC00000  '  WS_BORDER Or WS_DLGFRAME
  123. Global Const WS_BORDER = &H800000
  124. Global Const WS_SYSMENU = &H80000
  125. Global Const WS_THICKFRAME = &H40000
  126. Global Const WS_MINIMIZEBOX = &H20000
  127. Global Const WS_MAXIMIZEBOX = &H10000
  128. Global Const WS_OVERLAPPEDWINDOW = (WS_OVERLAPPED Or WS_CAPTION Or WS_SYSMENU Or WS_THICKFRAME Or WS_MINIMIZEBOX Or WS_MAXIMIZEBOX)
  129. Global Const WS_POPUP = &H80000000
  130. Global Const WS_CHILD = &H40000000
  131. Global Const WS_MAXIMIZE = &H1000000
  132.  
  133. Global Const MF_SEPARATOR = &H800
  134. Global Const MF_ENABLED = &H0
  135. Global Const MF_GRAYED = &H1
  136. Global Const MF_DISABLED = &H2
  137. Global Const MF_UNCHECKED = &H0
  138. Global Const MF_CHECKED = &H8
  139. Global Const MF_BYCOMMAND = &H0
  140. Global Const MF_BYPOSITION = &H400
  141. Global Const MF_USECHECKBITMAPS = &H200
  142.  
  143. Global Const MF_STRING = &H0
  144. Global Const MF_BITMAP = &H4
  145. Global Const MF_OWNERDRAW = &H100
  146. Global Const MF_POPUP = &H10
  147. Global Const MF_MENUBARBREAK = &H20
  148. Global Const MF_MENUBREAK = &H40
  149.  
  150. Global Const KEY_ESCAPE = &H1B
  151. Global Const KEY_LEFT = &H25
  152. Global Const KEY_UP = &H26
  153. Global Const KEY_RIGHT = &H27
  154. Global Const KEY_DOWN = &H28
  155.  
  156. Global Const TRANSPARENT = 1
  157. Global Const BLACK_BRUSH = 4
  158. Global Const NULL_BRUSH = 5
  159. Global Const SRCCOPY = &HCC0020 ' (DWORD) dest = source
  160.  
  161. Global Const SC_CLOSE = &HF060
  162.  
  163. Global Const WM_MOVE = &H3
  164. Global Const WM_ACTIVATE = &H6
  165. Global Const WM_SETFOCUS = &H7
  166. Global Const WM_PAINT = &HF
  167. Global Const WM_ERASEBKGND = &H14
  168. Global Const WM_CTLCOLOR = &H19
  169. Global Const WM_MOUSEACTIVATE = &H21
  170. Global Const WM_LBUTTONDOWN = &H201
  171. Global Const WM_LBUTTONDBLCLK = &H203
  172. Global Const WM_RBUTTONDOWN = &H204
  173. Global Const WM_NCHITTEST = &H84
  174. Global Const WM_COMMAND = &H111
  175. Global Const WM_SYSCOMMAND = &H112
  176. Global Const WM_INITMENU = &H116
  177. Global Const WM_MENUSELECT = &H11F
  178. Global Const WM_NCLBUTTONDBLCLK = &HA3
  179. Global Const WM_NCRBUTTONDOWN = &HA4
  180. Global Const WM_PALETTECHANGED = &H311
  181. Global Const WM_QUERYNEWPALETTE = &H30F
  182. Global Const WM_DROPFILES = &H233
  183.  
  184. Global Const VBM_PALETTECHANGED = &H101B
  185. Global Const VBM_GETPALETTE = &H101C
  186.  
  187. Global Const HTTRANSPARENT = (-1)
  188. Global Const HTCLIENT = 1
  189. Global Const HTCAPTION = 2
  190.  
  191. Global Const MA_NOACTIVATE = 3
  192.  
  193. Global Const RGN_DIFF = 4
  194.  
  195. Global Const VK_SHIFT = &H10
  196.  
  197. Global Const CTLFLG_HASPALETTE = 1
  198. Global Const CTLFLG_USESPALETTE = 2
  199.  
  200. Global Const DT_WORDBREAK = &H10
  201. Global Const DT_CENTER = &H1
  202.  
  203.  
  204. '-----------------------------------
  205. 'Common Dialog Control
  206. '-----------------------------------
  207. 'Action Property
  208. Global Const DLG_FILE_OPEN = 1
  209. Global Const DLG_FILE_SAVE = 2
  210. Global Const DLG_COLOR = 3
  211. Global Const DLG_FONT = 4
  212. Global Const DLG_PRINT = 5
  213. Global Const DLG_HELP = 6
  214.  
  215. 'File Open/Save Dialog Flags
  216. Global Const OFN_READONLY = &H1&
  217. Global Const OFN_OVERWRITEPROMPT = &H2&
  218. Global Const OFN_HIDEREADONLY = &H4&
  219. Global Const OFN_NOCHANGEDIR = &H8&
  220. Global Const OFN_SHOWHELP = &H10&
  221. Global Const OFN_NOVALIDATE = &H100&
  222. Global Const OFN_ALLOWMULTISELECT = &H200&
  223. Global Const OFN_EXTENTIONDIFFERENT = &H400&
  224. Global Const OFN_PATHMUSTEXIST = &H800&
  225. Global Const OFN_FILEMUSTEXIST = &H1000&
  226. Global Const OFN_CREATEPROMPT = &H2000&
  227. Global Const OFN_SHAREAWARE = &H4000&
  228. Global Const OFN_NOREADONLYRETURN = &H8000&
  229.  
  230. 'Color Dialog Flags
  231. Global Const CC_RGBINIT = &H1&
  232. Global Const CC_FULLOPEN = &H2&
  233. Global Const CC_PREVENTFULLOPEN = &H4&
  234. Global Const CC_SHOWHELP = &H8&
  235.  
  236. 'Fonts Dialog Flags
  237. Global Const CF_SCREENFONTS = &H1&
  238. Global Const CF_PRINTERFONTS = &H2&
  239. Global Const CF_BOTH = &H3&
  240. Global Const CF_SHOWHELP = &H4&
  241. Global Const CF_INITTOLOGFONTSTRUCT = &H40&
  242. Global Const CF_USESTYLE = &H80&
  243. Global Const CF_EFFECTS = &H100&
  244. Global Const CF_APPLY = &H200&
  245. Global Const CF_ANSIONLY = &H400&
  246. Global Const CF_NOVECTORFONTS = &H800&
  247. Global Const CF_NOSIMULATIONS = &H1000&
  248. Global Const CF_LIMITSIZE = &H2000&
  249. Global Const CF_FIXEDPITCHONLY = &H4000&
  250. Global Const CF_WYSIWYG = &H8000&                        'must also have CF_SCREENFONTS & CF_PRINTERFONTS
  251. Global Const CF_FORCEFONTEXIST = &H10000
  252. Global Const CF_SCALABLEONLY = &H20000
  253. Global Const CF_TTONLY = &H40000
  254. Global Const CF_NOFACESEL = &H80000
  255. Global Const CF_NOSTYLESEL = &H100000
  256. Global Const CF_NOSIZESEL = &H200000
  257.  
  258.